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SUMMARY .o^nrnoram to create an Excel workbook that contains a 

This article illustrates how you can use Automation in a V,sual Bas,c program 
chart embedded on a worksheet. 

MORE INFORMATION 
Steps to Create Example Program 

1 Start a new project in Visual Basic. Forml is created by default. 

2 Add a command button (Commandl) to Forml. 

3. Add the following code to the Commandl_Click event procedure. 

Private Sub Commandl_Click ( ) 

Dim oXL As Object ' Excel application 

Dim oBook As Object ' Excel workbook 

Dim oSheet As Object ' Excel Worksheet 

Dim oChart As Object ' Excel Chart 

Dim iRow As integer ' Index variable for the current Row 

Dim iCol As integer ' Index variable for the current Row 

Const cNumCols = 10 ' Number of points in each Series 

Const cNumRows = 2 ' Number of Series 

ReDim aTempd To cNumRows, 1 To cNumCols) 

'Start Excel and create a new workbook 

Set oXL = CreateObject ( "Excel. application") 

Set oBook = oXL. Workbooks .Add 

Set oSheet = oBook .Worksheets . Item ( 1) 

1 Insert Random data into Cells for the two Series: 

Randomize Now() 

For iRow = 1 To cNumRows 

For iCol = 1 To cNumCols 

aTempfiRow, iCol) = Int(Rnd * 50) +1 

Next iCol 
Next iRow 

oSheet .Range ( "Al" ) .Resize (cNumRows , cNumCols) .Value = aTemp 
'Add a chart object to the first worksheet 

Set oChart - oSheet . ChartObjects .Add (50 , 40, 300, 200). Chart 

oChart . SetSourceData Source : =oSheet . Range ( "Al " ) .Resize (cNumRows, cNumCols) 

' Make Excel Visible: 
oXL. Visible = True 

oXL . UserControl = True 

End Sub 
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4. Press the F5 key to run the program, and click the command button. 

Results: Microsoft Excel starts, and a new workbook is created. Random data is added to cells A1:J2 and a chart is embedded 
on the first worksheet. The embedded chart uses the random data for its source. 



The information in this article applies to: 

• Microsoft Office Excel 2003 

• Microsoft Excel 2002 

• Microsoft Excel 2000 

• Microsoft Excel 97 for Windows 

• Microsoft Visual Basic Professional Edition for Windows 6.0 

• Microsoft Visual Basic Professional Edition for Windows 5.0 

• Microsoft Visual Basic Enterprise Edition for Windows 6.0 

• Microsoft Visual Basic Enterprise Edition for Windows 5.0 
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